Perl Best Practice